home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / wc15_b.arc / SCHEDUL1.WMS < prev    next >
Encoding:
Text File  |  1991-03-22  |  1.5 KB  |  65 lines
  1. ;WinComm Dialing Directory
  2.  
  3. month$="Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec"
  4. hs = FOPEN(2,"dial.que")        ; dialing que must already be setup
  5. if(hs==-1){
  6.     PUTSESSINT(71,0)
  7.     HALT
  8. }
  9. else {
  10.     a$ = FREADLN(hs)
  11.         hd=FOPEN(4096,"t1.txt")
  12.         b$=FREADLN(hs)
  13.         WHILE(NULL(b$) == 0)
  14.         FWRITE(hd,LEN(b$),b$)
  15.             b$=FREADLN(hs)
  16.         WEND
  17.         FCLOSE(hs) FCLOSE(hd)
  18.         DELETEFILE("dial.que") 
  19.         RENAME("t1.txt","dial.que")
  20.         b$=EXTRACT(CHAR(9),a$,2)
  21.     IF(NULL(b$)) PUTSESSINT(71,0)
  22.     ELSE {
  23.         d$= EXTRACT(CHAR(9),a$,4)
  24.         f$=STRTIME(TIME?)
  25.         m$ = LEFT(d$,3)
  26.         m=0 DO  m=m+1 UNTIL(CMP(m$,EXTRACT(",",month$,m)))
  27.         d=VALINT(MID(d$,5,2))
  28.         h=VALINT(MID(d$,8,2))
  29.         min=VALINT(MID(d$,11,2))
  30.         y=VALINT(MID(f$,23,2))
  31.         time = INTTIME(h,d,m,y)+(60*min)
  32.         if(time>TIME?){
  33.             var1$=STRTIME(TIME?)
  34.             var2$=STRTIME(time)
  35.             i = TIME?+1
  36.             DIALOGBOX 69, 18, 142, 69, 29, "Waiting to Connect"
  37.                DEFCANCELBUTTON 48, 52, 50, 14, "&Cancel"
  38.                RTEXT 1, 9, 62, 8, "Current Time:"
  39.                RTEXT 1, 22, 62, 8, "Activation  Time:"
  40.                CTEXT 4, 40, 134, 8, "Press Cancel to terminate scheduler:"
  41.                VTEXT 66, 9, 74, 9, VAR1$
  42.                VTEXT 66, 22, 74, 9, VAR2$
  43.             DEND
  44.             loop:
  45.               if(DIALOG? !=255){
  46.                 PUTSESSINT(71,0)
  47.                 HALT
  48.               }
  49.               if(time?>=time) DESTROYDLG
  50.               else{
  51.                 if(TIME?>i){
  52.                     var1$=STRTIME(TIME?)
  53.                     i=TIME?+1
  54.                     UPDATEDLG(16)
  55.                 }
  56.                 GOTO loop
  57.               }
  58.         }
  59.         OPEN(b$+".wsf","",5)
  60.     }
  61.     HALT
  62. }
  63. END
  64.  
  65.